1 POKE53281,0:PRINT"[147] FRAKTALE BERGE [146]":PRINT"[156]VON ALEX MAYRHOFER.":G=53272
2 POKE53280,0:INPUT"MAX. HOEHE (32-80)";H:IFH<32ORH>80THEN PRINT"[145]";:GOTO 2
3 FORI=1TO4:PRINT"HOEHE"I":";-H;"BIS"H;:INPUTH(I):H(I)=H(I)+128:NEXTI:H=H+128
4 INPUT"FAKTOR (0-1):";K:FORI=16500TO20724:POKEI,255:NEXT:POKE16500,H(1):EP=0
5 POKE16564,H(2):POKE20660,H(3):POKE20724,H(4):PRINT"BERECHNUNGSBEGINN"
6 FORI=6TO1STEP-1:S=2^I:FORY=0TO63STEPS:FORX=0TO63STEPS:AD=16500+X+Y*65+S*33
7 J=S*33:Z1=PEEK(AD-J):Z2=PEEK(AD+J):J=J-S:Z3=PEEK(AD-J):Z4=PEEK(AD+J)
8 Z=INT((Z1+Z2+Z3+Z4)/4+RND(1)*2*S+1-S)+1:AD(5)=AD-S*32.5:AD(6)=AD+S*32.5
9 PRINT"[145]";INT(EP)"[157]% BER.":IFABS(Z-128)>(H-128)THENZ=Z-S/2*SGN(Z-128)
10 Z(5)=INT((Z1+Z+Z3)/3+K):Z(6)=INT((Z4+Z+Z3)/3+K):Z(7)=INT((Z3+Z+Z2)/3+K)
11 Z(8)=INT((Z4+Z+Z1)/3+K):EP=EP+.07326:POKEAD,Z:AD(7)=AD+S/2:AD(8)=AD-S/2
12 FORQ=5TO8:C(Q)=PEEK(AD(Q)):IFC(Q)<>255ANDC(Q)<>0THENZ(Q)=(C(Q)+Z(Q))/2
13 IFABS(Z(Q)-128)>(H-128)THENZ(Q)=Z(Q)-S/2*SGN(Z(Q)-128)
14 POKEAD(Q),INT(Z(Q)):NEXTQ,X,Y,I:POKE53272,29:POKE53265,59:POKE53270,248
15 FORI=0TO999:POKE1024+I,213:POKE55296+I,102:NEXT:FORI=8192TO16191:POKEI,0
16 NEXT:FORY=0TO64:FORX=0TO64:AD=16500+Y*65+X:S=PEEK(AD):IFS<128THENS=128
17 S=S-128:U=2*(X+Y+13):TS=S-5*SGN(S):FORT=TSTOS:V=Y+90-T:B=INT(U/8)*8:BT=6+B-U
18 A2=8192+(VAND248)*39+B+V:D=2:W=T:P=PEEK(A2)AND(255-3*2^BT):IFS=0THEND=3:W=0
19 D=D-INT((WAND3)/3):POKEA2,PORD*2^BT:NEXTT,X,Y:POKE198,0:WAIT198,1:POKEG,21
20 POKE53265,27:PRINT"[147]P[207]43,0:P[207]44,32:P[207]45,0:P[207]46,64";:POKE631,13:POKE198,1